#!/usr/bin/perl
use English;

open (FILE,"re2.txt") or die "re2.txt nicht vorhanden";
while ($a = <FILE>) {
        if ($a =~ m/(\w+):(\d+)\s*T\s*=\s*(\d+)/) {
                print $1 . "  " . $2 . "  " . $3 . "\n";
                #print $PREMATCH . "|" . $MATCH . "|" . $POSTMATCH;
                #print $` . ":" . $& . ":" . $';
        }
}
close (FILE);
